home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / PC2.PRG < prev    next >
Encoding:
Text File  |  1985-10-23  |  1.4 KB  |  91 lines
  1. SELE CURRENT
  2. SET INDE TO CURRNAME,CURRNMBR
  3. CLEA
  4. @01,00 say 'position printer at top of paper and hit any key'
  5. SET cons off
  6. WAIT
  7. SET cons on
  8. @01,00
  9. @05,00 say 'printing ......'
  10. SET cons off
  11. mtitle='ATTORNEYS SHORT LIST'
  12. pos=40-(int(len(mtitle)/2))
  13. line=1
  14. SET devi to print
  15. @line,pos say mtitle
  16. GOTO top
  17. mnumber1=recno()
  18. SKIP 52
  19. mnumber2=recno()
  20. GOTO top
  21. line=4
  22. mstop=.t.
  23. pos=0
  24. DO WHIL line<=55
  25. @line,pos say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  26. substr(reference,1,13)
  27. mnumber=recno()
  28. GOTO mnumber2
  29. IF .not. mstop
  30. GOTO mnumber
  31. SKIP
  32. line=line+1
  33. LOOP
  34. ELSE
  35. @line,pos+40 say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  36. substr(reference,1,13)
  37. SKIP 1
  38. IF eof()
  39. mstop=.f.
  40. GOTO mnumber
  41. SKIP
  42. line=line+1
  43. LOOP
  44. ELSE
  45. mnumber2=recno()
  46. line=line+1
  47. GOTO mnumber
  48. SKIP
  49. ENDI
  50. ENDI
  51. ENDD
  52. @prow(),pcol() say chr(13)
  53. @prow(),pcol() say chr(12)
  54. SET devi to screen
  55. GOTO TOP
  56. line=99
  57. page=0
  58. DO WHIL .NOT. EOF()
  59. IF line>56
  60. IF page>=1
  61. EJEC
  62. ENDI
  63. page=page+1
  64. SET PRIN ON
  65. ?
  66. ?' PAGE '+STR(PAGE)
  67. ?'                    CURRENT CASES FOR ATTORNEY           '
  68. ? DATE()
  69. ?
  70. ?
  71. ?
  72. SET PRIN OFF
  73. LINE=6
  74. ENDI
  75. SET PRIN ON
  76. ? TRIM(CLIENTNAME)+'  ( '+FILE_NMBR+')  '+TRIM(CPHONE),;
  77. TRIM(ALTPHONE)+' '+'CAUSE NO.'+' '+ CAUSE_NMBR ì
  78.  
  79. ? '   '+TRIM(REFERENCE)+'  * '+TRIM(OPA)+'*  '+TRIM(OPA_PHONE)
  80. ?
  81. SET PRIN off
  82. line=line+3
  83. SKIP
  84. ENDD
  85. EJEC
  86. SET PRIN off
  87. SET cons on
  88. SET device to screen
  89. STOR '012' to curr
  90. RETU
  91.